home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / taskbar / timepiece / install < prev    next >
Encoding:
Text File  |  1995-10-02  |  2.0 KB  |  93 lines
  1. ; Install TimePiece
  2.  
  3.  
  4. (set MainSource      "TimePiece")
  5. (set GuideSource          "TimePiece.guide")
  6. (set PrefSource        "TimePiecePrefs")
  7. (set MenuSource         "TimePiece.menu")
  8. (set HandlerSource    "TimePiece-Handler")
  9.  
  10. (set CopyMainPrompt     "Copy Main Program?")
  11. (set CopyGuidePrompt    "Copy AmigaGuide?")
  12. (set CopyPrefPrompt    "Copy GUI preference program?")
  13. (set CopyMenuPrompt     "Copy Example Menu?")
  14. (set CopyHandlerPrompt    "Copy TimePiece-Handler?")
  15. (set MainCopyPrompt     "Copying TimePiece...")
  16. (set GuideCopyPrompt    "Copying AmigaGuide...")
  17. (set PrefCopyPrompt    "Copying TimePiecePrefs...")
  18. (set MenuCopyPrompt     "Copying Menu...")
  19. (set HandlerCopyPrompt    "Copying TimePiece-Handler...")
  20.  
  21. (set MainDir (askdir
  22.     (prompt CopyMainPrompt)
  23.     (help   @askdir-help)
  24.     (default "SYS:WBStartup/")
  25. ))
  26.  
  27. (set GuideDir (askdir
  28.     (prompt CopyGuidePrompt)
  29.     (help   @askdir-help)
  30.     (default "SYS:")
  31. ))
  32.  
  33. (set PrefDir (askdir
  34.     (prompt CopyPrefPrompt)
  35.     (help    @askdir-help)
  36.     (default "SYS:Prefs")
  37. ))
  38.  
  39. (set MenuDir (askdir
  40.         (prompt CopyMenuPrompt)
  41.         (help   @askdir-help)
  42.         (default "S:")
  43. ))
  44.  
  45. (set HandlerDir (askdir
  46.     (prompt CopyHandlerPrompt)
  47.     (help    @askdir-help)
  48.     (default "L:")
  49. ))
  50.  
  51. (procedure check-system-version
  52. (if (< (getversion "LIBS:version.library") (* 37 00000))  
  53.   (abort "TimePiece requires Workbench 2.04 or higher"))
  54. )
  55.  
  56. (copyfiles
  57.     (prompt MainCopyPrompt)
  58.     (help   @copyfiles-help)
  59.     (source MainSource)
  60.     (dest   MainDir)
  61.     (infos)
  62. )
  63.  
  64. (copyfiles
  65.         (prompt PrefCopyPrompt)
  66.         (help   @copyfiles-help)
  67.         (source PrefSource)
  68.         (dest   PrefDir)
  69.         (infos)
  70. )
  71. (copyfiles
  72.         (prompt GuideCopyPrompt)
  73.         (help   @copyfiles-help)
  74.         (source GuideSource)
  75.         (dest   GuideDir)
  76.         (infos)(confirm)
  77. )
  78. (copyfiles
  79.     (prompt MenuCopyPrompt)
  80.     (help   @copyfiles-help)
  81.     (source MenuSource)
  82.     (dest   MenuDir)(confirm)
  83. )
  84. (copyfiles
  85.     (prompt HandlerCopyPrompt)
  86.         (help   @copyfiles-help)
  87.         (source HandlerSource)
  88.         (dest   HandlerDir)
  89. )
  90.  
  91. (message "TimePiece now installed\n©1995, Gary Greenhill\n\n")
  92.  
  93.